home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).adf / Write / WRITE.lha / WRITEV3.371.lha / Config / STARTUP.config < prev    next >
Text File  |  1993-12-27  |  2KB  |  51 lines
  1. /*
  2.  *  $VER: STARTUP.CONFIG 3.371 (27.12.93) © 1989 - 1993 by Tim Teulings
  3.  *
  4.  * In diesem File werden einige globale Standardeinstellungen während des
  5.  * Starten von WRITE getätigt.
  6.  * Hier hin gehören :
  7.  * SETBACKUP
  8.  * SETHOTKEY
  9.  * Und ggf. das Setzen einige blobaler Variablen.
  10.  * Auch REXX-Scripts können hier gestartet werden.
  11.  *
  12.  */
  13.  
  14. IF Compare 3371 _Version;
  15.    NOP;
  16.    Ask "WRITE und STARTUP.CONFIG haben eine unterschiedliche\n"+
  17.        "Versionsnummer\n"+
  18.        "Weiterparsen könnte gefährlich sein !"
  19.        "Stop & _Ende ^|_Weiter parsen *"
  20.    Break EQUAL _RN 0;
  21.  
  22. SETBACKUP 0 "#?"            "dh0:backup/WRITE.backup" /*Umbenennen        */
  23. SETBACKUP 1 "#?(.mod|.tex)" ".bak"                    /*Endung anhängen   */
  24. SETBACKUP 2 ""              ""                        /*Directory copieren*/
  25.  
  26. SETUSERFKT 2 NewEd ""
  27.              Window 0 0 0 0;
  28.  
  29. SETMACRO 0 "Konv. Umlaute" DoREXX "REXX:ClearUmlauts.wrx" {@ASYNC};
  30.  
  31. /* frei  definierbare Hotkey-Commodities  */
  32.  
  33. SETHOTKEY 0 "CONTROL ALT w"    /* Öffnet ein neues Fenster */
  34.             NewEd ""
  35.             Window 0 0 0 0;
  36.  
  37. SETHOTKEY 1 "CONTROL ALT m"    /* Der WinManager */
  38.              WinManager;
  39.  
  40. SETHOTKEY 2 "CONTROL ALT o"    /* Öffnet Fenster und Filerequester */
  41.             NewEd ""
  42.             Window 0 0 0 0
  43.             GetFile
  44.             Open _Path;
  45.  
  46. SETHOTKEY 3 "CONTROL ALT t"    /* Zeigt die aktuelle Zeit */
  47.             MessageOK "Die aktuelle Zeit ist :\n$_Time$";
  48.  
  49. SETHOTKEY 4 "CONTROL ALT !"    /* Bringt den ABOUT-Requester nach vorn */
  50.             About;
  51.